home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / E / EditString.cpt / EditString Stack / card_6328.txt < prev    next >
Text File  |  1990-06-22  |  3KB  |  113 lines
  1. -- card: 6328 from stack: in
  2. -- bmap block id: 5940
  3. -- flags: 0000
  4. -- background id: 3493
  5. -- name: pad
  6.  
  7.  
  8. -- part 2 (field)
  9. -- low flags: 00
  10. -- high flags: 0002
  11. -- rect: left=342 top=214 right=231 bottom=373
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 97
  16. -- text size: 9
  17. -- style flags: 0
  18. -- line height: 12
  19. -- part name: padchar
  20.  
  21.  
  22. -- part 3 (field)
  23. -- low flags: 00
  24. -- high flags: 0002
  25. -- rect: left=466 top=214 right=231 bottom=497
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 0
  29. -- font id: 97
  30. -- text size: 9
  31. -- style flags: 0
  32. -- line height: 12
  33. -- part name: num
  34.  
  35.  
  36. -- part 4 (button)
  37. -- low flags: 00
  38. -- high flags: A003
  39. -- rect: left=194 top=211 right=233 bottom=273
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 1
  43. -- font id: 0
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: PAD Right
  48. ----- HyperTalk script -----
  49. on mouseUp
  50.   put editString("pad", line 1 of field A,cd fld num, cd fld padChar, TRUE) into line 1 of field B
  51.  
  52.   put editString("pad", line 2 of field A,cd fld num, cd fld padChar,TRUE) into line 2 of field B
  53. end mouseUp
  54.  
  55.  
  56.  
  57. -- part 5 (button)
  58. -- low flags: 00
  59. -- high flags: A003
  60. -- rect: left=101 top=211 right=233 bottom=180
  61. -- title width / last selected line: 0
  62. -- icon id / first selected line: 0 / 0
  63. -- text alignment: 1
  64. -- font id: 0
  65. -- text size: 12
  66. -- style flags: 0
  67. -- line height: 16
  68. -- part name: PAD Left
  69. ----- HyperTalk script -----
  70. on mouseUp
  71.   put editString("pad", line 1 of field A,cd fld num, cd fld padChar,FALSE) into line 1 of field B
  72.  
  73.   put editString("pad", line 2 of field A,cd fld num, cd fld padChar,FALSE) into line 2 of field B
  74. end mouseUp
  75.  
  76.  
  77.  
  78. -- part contents for background part 3
  79. ----- text -----
  80. editString("Pad", source, fieldWidth, padChar, padRight)
  81. ‚Ä¢ source is the intput variable or field containing the text
  82. ‚Ä¢ fieldWidth is the length of the desired result string
  83. ‚Ä¢ padChar is the character to pad the string with
  84. ‚Ä¢ padRight is TRUE for placing the source at the right, FALSE for left
  85.  
  86. put editString("Pad", field A, 20, ".", TRUE) into field B   If field A is
  87. "Hello" then the result string will be: "...............Hello"
  88.  
  89. -- part contents for background part 4
  90. ----- text -----
  91. Hello there
  92. Bob
  93.  
  94. -- part contents for card part 2
  95. ----- text -----
  96. .
  97.  
  98. -- part contents for card part 3
  99. ----- text -----
  100. 35
  101.  
  102. -- part contents for background part 2
  103. ----- text -----
  104. PAD will add a specific character to the beginning or end of a string until a specified length is attained.  This function is limited to strings only and will ignore any characters past position 255.  If the length of the original source text is longer than the desired length the function will just return the original source text.
  105.  
  106. -- part contents for background part 1
  107. ----- text -----
  108. PAD
  109.  
  110. -- part contents for background part 5
  111. ----- text -----
  112. ........................Hello there
  113. ................................Bob